home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / extern.module < prev    next >
Text File  |  1996-09-18  |  209b  |  19 lines
  1. MODULE Extern;
  2.  
  3. VAR
  4.   command : STRING;
  5.  
  6. MENU $menu1;
  7.  
  8. ITEM $item1_1 "."
  9.   System("NewShell")
  10. END;
  11.  
  12. ITEM $item1_2 ""
  13.   IF GetString($text1,"",command) THEN
  14.     System(command){@ASYNC}
  15.   END;
  16. END;
  17.  
  18. END Extern.
  19.